home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1995 November / CD [TECH_B].bin / tech_b / delphi / trial / disk1 / mastapp.pak / PICKREP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-08  |  743 b   |  47 lines
  1.  
  2. unit Pickrep;
  3.  
  4. interface
  5.  
  6. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  7.   StdCtrls;
  8.  
  9. type
  10.     TPickRpt = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     CustRadBtn: TRadioButton;
  13.     OrderRadBtn: TRadioButton;
  14.     OKBtn: TButton;
  15.     CloseBtn: TButton;
  16.     ViewBtn: TButton;
  17.     OrderInvBtn: TRadioButton;
  18.     procedure OKBtnClick(Sender: TObject);
  19.     procedure ViewBtnClick(Sender: TObject);
  20.   end;
  21.  
  22. var
  23. {
  24.   PickRpt: TPickRpt;
  25.  }
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. uses Main;
  31.  
  32. procedure TPickRpt.OKBtnClick(Sender: TObject);
  33. begin
  34. {
  35.   MainForm.Report.Preview := False;
  36. }
  37. end;
  38.  
  39. procedure TPickRpt.ViewBtnClick(Sender: TObject);
  40. begin
  41. {  MainForm.Report.Preview := True;
  42. }
  43. end;
  44.  
  45. end
  46.  
  47.